From 7a7379a9211e3305ee3a02882ef4d7e896ae7d85 Mon Sep 17 00:00:00 2001 From: =?utf8?q?Pavel=20Jan=C3=ADk?= Date: Mon, 29 Jul 2002 20:04:04 +0000 Subject: [PATCH] Fix regexp for finding return address fields. --- lib-src/b2m.pl | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lib-src/b2m.pl b/lib-src/b2m.pl index 9098418d966..665dfe202d5 100644 --- a/lib-src/b2m.pl +++ b/lib-src/b2m.pl @@ -30,7 +30,7 @@ use Mail::Address; use Date::Parse; my($whoami) = basename $0; -my($version) = '$Revision: 1.1 $'; +my($version) = '$Revision: 1.2 $'; my($usage) = "Usage: $whoami [--help] [--version] [--[no]full-headers] [Babyl-file] \tBy default, full headers are printed.\n"; @@ -122,7 +122,7 @@ while (<>) { } else { foreach my $addr_header qw(return-path from really-from sender) { - if ($full_header =~ /(?:^|\n)$addr_header:\s*((?:\S.*\n)+)/i) { + if ($full_header =~ /(?:^|\n)$addr_header:\s*(.*\n(?:\B.*\n)*)/i) { my($addr) = Mail::Address->parse($1); $from_addr = $addr->address($addr); last; -- 2.30.2